home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tc.d64 / 64aid (.txt) next >
Commodore BASIC  |  2007-02-04  |  4KB  |  103 lines
  1. 0 PRINT"      XXXX XXXX   XXXX   XX  X  X "
  2. 5 POKE53280,1:POKE53281,1 :PRINT"[147]"
  3. 10 POKE646,K:K=K+1:IFK=16THENK=0
  4. 20 PRINT"      XX    XX     XX    XX  XXX  "
  5. 25 PRINT"      XX   X X    X  X   XX  X  X "
  6. 30 PRINT"      XX   X X    X  X   XX  X  X "
  7. 40 PRINT"      XX   X [160]X   X  X   XX  X  X "
  8. 50 PRINT"      XXXX XXXX   XXXX   XX  X  X "
  9. 60 PRINT"      X  X   X    X  X   XX  X  X "
  10. 70 PRINT"      X  X   X    X  X   XX  X  X "
  11. 78 PRINT"      XXXX   X    X  X   XX  XXX  "
  12. 80 PRINT"       64 AID    BY J.L. SMITH":REM498 GUY, TWO MOUNTAINS QUEBEC
  13. 90 PRINT"[129]                       PRESS ANY KEY"
  14. 1000 GETA$:IFA$=""THEN10
  15. 1020 GOSUB40000
  16. 1100 PRINT"[147]                 MENU":A=0:B=0
  17. 1110 PRINT"1. START OF BASIC
  18. 1120 [153]"2. END OF BASIC
  19. 1130 PRINT"3. START OF NUMERIC VARIABLES
  20. 1140 [153]"4. START OF ARRAYS
  21. 1150 PRINT"5. END OF ARRAYS
  22. 1160 [153]"6. BOTTOM OF STRING STORAGE
  23. 1170 PRINT"7. TOP OF FREE RAM
  24. 1180 [153]"8. TOTAL MEMORY AVAILABLE
  25. 1190 PRINT"9. NUMBER OF OPEN FILES
  26. 1200 [153]"10. KEY NUMBER BEING HELD
  27. 1210 PRINT"11. # OF CHARACTERS IN KEYBOARD BUFFER
  28. 1220 [153]"12. CURRENT SCREEN LENGHT
  29. 1230 PRINT"13. KEY BOARD BUFFER
  30. 1240 [153]"14. START OF MEMORY
  31. 1250 PRINT"15. END OF MEMORY
  32. 1260 [153]"16. CHARACTER COLOUR CODE
  33. 1270 PRINT"17. REPEAT FLAG
  34. 1280 [153]"18. CASSETTE BUFFER
  35. 1290 PRINT"19. BACKGROUND COLOUR /CRSR
  36. 1300 [153]"20. QUIT
  37. 1400 PRINT"[158]ENTER NUMBER"
  38. 1410 GETA:IFA=0THEN1410
  39. 1420 TI$="000000":PRINT"[145][145][156]"
  40. 1430 GETB$:IFTI>60THEN1510
  41. 1440 IFB$=""THEN1430
  42. 1450 A=A*10+VAL(B$)
  43. 1510 ONAGOSUB2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300
  44. 1520 ONA-13GOSUB3400,3500,3600,3700,3800,3900,3990
  45. 1530 GOTO1100
  46. 2100 PRINT"[147]START OF BASIC=PEEK(43)+256*PEEK(44)
  47. 2150 [141]10000
  48. 2200 [153]"LOADEND OF BASIC=PEEK(45)+256*PEEK(46)-1
  49. 2250 GOSUB10000
  50. 2300 PRINT"[147]START OF NUMERIC VARIABLES=PEEK(45)+256*PEEK(46)
  51. 2350 [141]10000
  52. 2400 [153]"LOADSTART OF ARRAYS=PEEK(47)+256*PEEK(48)
  53. 2450 GOSUB10000
  54. 2500 PRINT"[147]END OF ARRAYS=PEEK(49)+256*PEEK(50)-1
  55. 2550 [141]10000
  56. 2600 [153]"LOADBOTTOM OF STRING STORAGE= PEEK(51)+256*PEEK(52)
  57. 2650 GOSUB10000
  58. 2700 PRINT"[147]TOP OF FREE RAM= PEEK(55)+256*PEEK(56)
  59. 2750 [141]10000
  60. 2800 [153]"LOADTOTAL MEMORY IN BASIC AVAILABLE=FRE(0)
  61. 2810 PRINT"IF AMOUNT GIVEN IS MINUS THEN ADD 65536 TO THE NUMBER GIVEN
  62. 2850 [141]10000
  63. 2900 [153]"LOADNUMBER OF OPEN FILES=PEEK(152)
  64. 2950 GOSUB10000
  65. 3000 PRINT"[147]KEY NUMBER BEING HELD=PEEK(197)
  66. 3050 [141]10000
  67. 3100 [153]"LOADNUMBER OF CHARACTERS IN THE KEYBOARD BUFFER=PEEK(198)
  68. 3150 GOSUB10000
  69. 3200 PRINT"[147]CURRENT SCREEN LENGTH=PEEK(213)
  70. 3210 [153]"THIS IS USEFUL TO SEE IF YOU ARE USING A VIC20 OR A 64 IN A PROGRAM.
  71. 3250 GOSUB10000
  72. 3300 PRINT"[147]KEYBOARD BUFFER=631-640(DECIMAL)
  73. 3310 [153]"IF CHARACTERS ARE POKED TO THESE LOCATIONS AND THE # OF CHAR IN BUFFER";
  74. 3330 [153]" IS INCREASED BY THE TOTAL THEN THIS WILL BE AS IF FROM KEYBOARD.
  75. 3350 GOSUB10000
  76. 3400 PRINT"[147]START OF MEMORY=PEEK(641)+256*PEEK(642)
  77. 3450 [141]10000
  78. 3500 [153]"LOADEND OF MEMORY=PEEK(643)+256*PEEK(644)
  79. 3550 GOSUB10000
  80. 3600 PRINT"[147]CHARACTER COLOUR CODE=PEEK(646)
  81. 3650 [141]10000
  82. 3700 [153]"LOADREPEAT FLAG=LOCATION 650
  83. 3710 PRINT"IF YOU POKE650,0 THEN ONLY CURSOR       CONTROLS WILL REPEAT. IF YOU ";
  84. 3720 PRINT"POKE650,128THEN ALL KEY WILL REPEAT."
  85. 3750 GOSUB10000
  86. 3800 PRINT"[147]CASSETTE BUFFER=828-1019(DECIMAL) THIS IS A GOOD ";
  87. 3810 PRINT"LOCATION FOR MACHINE LANGUAGE PROGRAMS WHEN NOT BEING USED BY THE ";
  88. 3820 PRINT"CASSETTE."
  89. 3850 GOSUB10000
  90. 3900 PRINT"[147]BACKGROUND COLOUR UNDER CURSOR=PEEK(647)
  91. 3950 [141]10000
  92. 3990 [153]"LOAD":[128]
  93. 10000 [153]"PRESS ANY KEY":[129]I[178]1[164]500 :[130]
  94. 10010 [153]"             ":[129]I[178]1[164]100:[130]
  95. 10020 [161]A$:[139]A$[179][177]""[167]1100
  96. 10030 [137]10000
  97. 11300 [153]"20. QUIT
  98. 40000 PRINT"[147]THE FOLLOWING CONTAINS INFORMATION HELPFULL IN CREATING";
  99. 40010 PRINT" AND DEBUGING PROG- RAMS.THE INFOMATION MAY BE USED DIRECTLYOR AS";
  100. 40020 PRINT" PART OF A PROGRAM.PRESS ANY KEY"
  101. 40030 GETA$:IFA$=""THEN40030
  102. 40040 RETURN
  103.